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RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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Get one character 16-Sep-1984 AX-11 Bliss-32 V4.0-7 Pa 1 
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001 XTITLE ‘Get one character’ : 
¢ MODULE getone ( IDENT = ‘'v04-000' : 
BLISS32C£, ADDRESSING_MODE eebctee = LONG_RELATIVE ‘ 

008 , ONEXTERNAL = LONG-RELATIVES ; 
= o 

0 1 BEGIN 3 
007 1! 3 
O38 1 | CeetenereneToNrarenedeNarerererereneneneneererenenenenneneneneseeteeHttetete ; 
:* * ° 

8010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY + i 
0011 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * : 
botg : 7 ALL RIGHTS RESERVED. . : 
Bete 1 is noe SOF TWARE +4 FURNISHED weet ‘ LICENSE AND MAY BE USED AND COPIED * ; 
015 1 !* ONLY IN ACCORDANCE WITH SUCH LICENSE AND WITH TH * g 
Bate tte J ELus ON OF THE ABOVE CopyRiGHy NOT! —. THIS SOn TUARE OR ANY OT * 3 
Bat 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 3 
018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
sid ! 7 TRANSFERRED. - : 
:® . 

0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * é 
00 ; 1 !'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * $ 
00¢3 1 is CORPORATION. ° ; 
i® a 

0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * é 
00 § ! :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ; ‘ 
* e 

$0 B iit t ; 
00 9 1 Lee RRR REAR RARAAAEAEAAEAAEEEAEEAAEEEEEEEAEEAAAAAAAAAAAAAARARRERAAETRER EES D4 
' PY 

0931 1 i+¢ : 
et) : FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS : 
site } ABSTRACT: Get one character, applying flag recognition. : 
BRS : ENVIRONMENT: Transportable ; 
0038 | AUTHOR : R.W.Friday CREATION DATE: May, 1978 : 
0040 1 : 


Revision nistory” iets =$p-198¢ 19:06:88 — ERUNOFFeSRESGE TONE Bf: do 


se) st ts 


SBTTL ‘Revision History’ 
MODIFIED BY: 
ney Mars VWeMovenber1963 
Modified the external Get ion of ATABLE to use the new 
macro ATABLE_DEFINITION def ined in ATCODE.REQ. 
Ron 


010 REROOO10 dall 07-Mar-1983 
Global edit of all Aa = 0 Updated module npaet, .seonts. 


x 

' 

i 

i 

011 REMQO011 
i 

i 

i 

' 

a copyright dates. Changed require files to BLISS library. 
le 


H 4 
Wbac0 elste aneek Res larettons 17-888 71382 99: 68; 39 ANNO Fe Ske 


§ce% Va On 768 Page 3 
GE TONE .BLI; 


3 i 5 } ZSBTTL ‘Module Level Declarations' 

: 1! 

3 20 1 TABLE OF CONTENTS: 

: ¢ INCLUDE FILES: 

> 64 ; 1 LIBRARY '"NXPORT:XPORT’; ! XPORT Library 

; & 987 : REQUIRE "REQ:RNODEF'; ! RUNOFF variant definitions 
: U 0195 1 SIF DSRPLUS XTHEN 

: 98 U 138 ! bibRARY REQ:DPLLIB'; ! DSRPLUS BLISS Library 

: $3 138 1 we *REQ:DSRLI8'; ! DSR BLISS Library 

3 f} 199 1 ZFI 

; ig ot i 

$ 74 8 1 i EXTERNAL RE’ ERENCES: 

eS 03 1! 

; 76 0204 1 EXTERNAL LITERAL 

3 a 0 3 : RINTES : UNSIGNED (8); 

: 79 6 09 1 EXTERNAL 

; 80 0208 1 atable : atable_definition, Action table. Used to identify what type of 
.- a 0209 1 } action is to be taken on encountering any 
c>)) = 0210 1 !_ given character. 

3 8 0211 1 FLGT : FLAG_ ae CFLAG_ COUNT), 

H 84 0 \¢ 1 IRA : FIXED_ STRING, 

3 8 0213 #1 KHAR, 

: Be 8 1 : SCA : SCA_DEFINITION; 

: 88 0 16 EXTERNAL ROUTINE 

; 8 0217 1 FNDFLG, 

3 90 0218 1 RSKIPS; 

; 91 0219 1 


4 
¥O4-000 Rodule Level Declarations 1ffeent98e 13:00:83 FRUNOFFSRESGE TONE -OL 17 toed 
a? GLOBAL ROUTINE GETONE (ACCEPTABLE,ALTERNATE) = 
$6 "FUNCTIONAL DESCRIPTION: 
4 Skip spaces and tabs until a different character is found. 


If that § aracter is <CONTROL flag>, or RINTES (i.e., end of record), 

or a semicolon, return a zero (null character). If the character 

is the accept (quote) flag, apply the flag against the next 

character. the character is the flag already in effect for this 

{tag operation or a special cased ALTERNATE, take it without complaining. 
he character is any other flag. then return the negative of the 

character's value so that the caller (OFT) may complain with RNFFAU 

(flag already in use). 


FORMAL PARAMETERS: 


ACCEPTABLE is the value of the flag character for the current 
«FLAGS or .NO FLAGS command. 


ALTERNATE is the value of the flag character for an alternately 
acceptable flag. 


IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 


ROUTINE VALUE: 
COMPLETION CODES: 


The routine returns the value of the character eupet Sees or zero if 
the character was not a flag; or -1*<character-value> if the character 
was the same character as that used for another flag. The negative 
return value represents an error condition that the caller (OFT) has 
the responsibility of reporting. 
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SIDE EFFECTS: None 

BEGIN 

RSKIPS (IRA); 'Skip spaces and tabs. 

IF .KHAR EQL RINTES 

THEN 

: RETURN 0; ‘End of record. 
66 IF .KHAR EQL .FLGT CCON_FLAG, FLAG_CHARACTER] 

40 67 THEN 
41 68 '<CONTROL flag> 
46 +4 RETURN 0; 'Start of a new command. 
44 A IF .ATABLE C.KHAR) EQL A_FLAG 
45 THEN 
46 7 ‘Character is a flag. Do it. 
4 74 BEGIN 
$8 75 LOCAL 
4 76 WHICH_FLAG; 
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Get one character tb-se -1984 00:40: AX-11 Bliss-32 V4.0-74 P 
Module Level Declarations 1 ~30 71382 90:00:89 RUNOFF. SRCIGETONE_BLI: rate 3 
WHICH_FLAG = FNDFLG (.KHAR); 'Identify the flag. 


CASE. -WHICHLFLAG FROM 0 TO FLAG_COUNT + 1 OF 
CQUO_FLAG) : 
'<QUOTE flag> 


CNS () 
IF _  .KHAR EQL RINTES 
THEN 


HOLD_QUO; 
HOLD_QUO = .KHAR; 
KCN 3 'Get next character 


IF .WHICH_FLAG EQL .ACCEPTABLE OR 
«WHICH_FLAG EQL .ALTERNATE 

! User is redefining <QUOTE flag> to itself or an 

i seceptante alternate (if there is such a thing). Let him. 


RETURN .HOLD_QUO 
! User is trying to define some other flag to the 
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SSSLESRAN LS VSVS SPAS ESsay 


a ! <QUOTE flag>. Let OFT complain. 
08 RETURN =.HOLD_QUO 
05 ELSE 

06 BEGIN 

44 LOCAL 

BS HOLD_KHAR; 

19 HOLD _RHAR = .KHAR; 

1g RETURN .HOLD_KHAR; 

1 END; 

14 

, END; 

1 CFLAG_COUNT + 1) : 

1 BEGIN 

1 LOCA 


L 

HOLD_CHAR; 
HOLD_CHAR = .KHAR; 
KCN ); 

RETURN .HOLD_CHAR; 
END; 


CINRANGE) : 
BEGIN 


LOCAL 
HOLD_CHAR; 


HOLD_CHAR = .KHAR; 
KCNST); 
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IF .WHICH 
«WHICH 
THEN 
‘Let us 
RETURN 
ELSE 
scone. 
RETURN 
END; 
TES; 
END; 
IF .KHAR EQL %C';' 
THEN 
RETURN 0; 
BEGIN 
LOCAL 
HOLD_KHAR; 


HOLD_KHAR = .KHAR; 
RETURN .HOLD_KHAR 
END 
END; 
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18-$8p-1986 19:00:88 | ERUNoFFeSReSGETONE OL; 


ine the flag to itself (or to the alternate). 


e redefines it to the value of another flag. 
CHAR); 


'End of command. 
'The usual case (i.e., just some character) 


'Position onto next character. 


!End of GETONE 


-TITLE GETONE Get one character 
IDENT \V04-000\ 

eEXTRN RINTES, ATABLE, FLGT 
eEXTRN IRA, KHAR, SCA, FNDFLG 
EXTRN RSKIPS 


-PSECT S$CODES,NOWRT,2 


.ENTRY GETONE, Save R2,R3,R4,R5 
HOVZBL #RINTES R5 


VAB AR, R 
VAB_-IRA+42, R3 
PUSHAB 
CALLS #1 RSKIPS 
MOVL KHAR, R 
CMPL =e RO, RS 
BEQL 
CMPL RO, FLGT+80 
BNEQ $ 
BRW 7$ 
CMPB = ATABLECRO), #3 
BEQL 
BRW 


$ 
i 
CALLS #1, FNDFLG 


Pete Se Ge Se Se Se Se Ge Se Sete Se Ge Se Se Se 


vu 
a 
Ld 
a 


y 1 Oh iegeze eae 
RUNOFF .SRCJGETONE.BLI; 


AX=1 
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1Sosep-1964 90:40:30 


AX=11 Bliss-32 V4.0-7 
RUNOFF .SRCJGETONE. BL; 


1 ue D3 MNEGL 4HOLD_CHAR, R1 
24 2 06 d8 14$: rey Ate #h 
38 64 0D DA 15$: CMPL KHAR, #59 
18 #1 DD BEQL 
50 6 D DF MOVL KHAR, HOLD_KHAR 
D E TSTL RA+12 
, E BGTR gs 
64 5 9A Eg MOVZBL RS, KHAR 
63 01 CE QOOE MNEGL #1. IRA+12 
4 QOOEC RET 
64 Fs B A BoeS 16$: MOVZBL @IRA+4, KHAR 
F A dg OOF 1 INCL IRA+4 
63 07 QOOF4 DECL IRA+12 
04 ORFs RET 
50 D4 OOOF7 17$: CLRL RO 
04 000F9 RET 
; Routine Size: 250 bytes, Routine Base: S$CODE$ + 0000 
BEE De end of oda 
: 538 0365 0 ELUDOM ~scsi sagmes = 
: PSECT SUMMARY 
; Name Bytes Attributes 
: SCODES 250 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
: cocccece Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: -$255$DUA28: CSYSLIBIXPORT .L32;1 590 0 0 252 0: :00.1 
> 7$255$DUA28: CRUNOFF .SRCJDSRLIB.L32;1 1248 17 1 86 0:00.2 
: COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:GETONE/OBJ=OBJ$:GETONE MSRC$:GETONE/UPDATE=(ENHS: GE TONE) 
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N 4 
GETON Get one characte 16-Sep-1984 00:40:20 AX-11 iss-32 V4.0-74 
$e ob 50 Module Level Rot levectons re ’ . : Tw See seule 


; Size: 250 code + 0 data bytes | 
: Run "tee: 8 :06.5 
; Elapsed Time 

: Lines/CPU Min 9 

; Lexenes/CPU-Rin: 16291 

: pee | Used: 86 pages 

; Compilation Complete 
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